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TITLE: 

TYPE: 

DURATION: 

DESCRIPTION! 



CAPACITY: 



METHOD OF USE: 



PARAMETER TAPE: 



Matrix Transposition with or without Rescaling (SADOI Only) 

Entire program 

About .25 R x C seconds where R is the mariner of rows and 
C is the number of columns 

The routine will transpose a matrix, or rescale a matrix, 
or both rescale and transpose a matrix. The matrix may 
be multiplied by 10" 2 , 10" 1 , 10+1, or 10 +2. The form 
of output, with respect to its appearance on the teletype 
page, may be in column form, in row form, or in row form 
with a space separating elemeartB. 

1. Transposition with or without rescaling 

a. R x C < 10240 

b. Neither R nor C may exceed 775 elements 

2. Rescaling groups of numbers 

a* The number of elements in a group may not exceed 8l4 
b. The number of elements in successive groups need not 
be the same 
c • The number of groups is unlimited 

Stops 

1. Master tape 540FN 

2. Parameter tape 2kQF& 

3. Data tape 2^016 

To operate on an additional data tape using the same 
parameters at stop 2kO¥B, insert the; d&fcg, ||j£ la the 
reader and raise the black switch. 

To change the parameters at stop 2kOF8, insert $&e new 
parameter tape and raise the white switch. Next insert 
the data tape and raise the black switch. 

There are four parameters. These must be punched in the 

following order: d space X S P. 

n d n is the number of decimal places in the results. This 

parameter must be followed by a fifth hole character. 

The number, d, must be in the range, 1 < d < 11. 

The directive, X has the following meaning f" 

if X = 0, the matrix will be transposed; 

if X = 1, the set of numbers will be rescaled; 

if X = 2, the matrix will be transposed and rescaled* 



-.2 - 



The scaler, S, should be emitted if X * 0. Otherwise, 

S «ay have the following values: 

If S = + 2, the elements will be multiplied by lO*" 2 * 
if S = + 1, the elements will be multiplied by lO"** 1 ^ 
if S = - 1, the elements will be multiplied by lCT 1 ; 
if S = - 2, the elements will be multiplied by 10~ 2 f 

The parameter, P, determines the print format on the 

teletype page as follows: 

if P = H, the output appears printed by columns % 

if P = J , the output appears printed by rows; 

if P = F, the output appears by rows with a space 

separating elements. 

DATA TAPE: The data tape must be prepared with an H terminating 

each row (or column) and with an N and a J after the 
final row. Each element must be punched as a signed 
fraction and may contain as many as 12 digits. 
For transposition, the number of elements in each row 
must be equal; otherwise the computer will stop on order 
4F from location 033. For scaling only, the number of 
• elements in successive groups need not be the same. 
If the character, F, terminates a group instead of an 
N, the computer will stop. Eaising the black switch 
will start the computer again. 



NOTE: 



If the computer stops on FF from location 100 after 
reading the master tape, this indicates a sum check 
failure. Clear machine and reread the master tape. 
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LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


004K 












4 




00 


OOF OOF 


by 38F 


Number in each group 


5 




(G) 


OOF OOF 


by 31P 


Number of groups 


6 




(sc) 


OOF OOF 
OOK 


"by 250F 


Scaler 


7 




(K) 


OOF 000000 7812 5000J 


10~ 2 x 2~ 7 


8 






OOF 000007 8125 OOOOJ 


10" 1 x 2~ 7 


9 




(K9) 


OOF 00(K9) 1 




10 






OOF OOO78I 2500 OOOOJ 


10 1 x 2" 7 


11 






OOF 007812 5000 OOOOJ 


10 2 x 2" 7 


12 




0») 


8611F 002560F 


- 




13 




(DP) 


85IIF 002560F 






14 




(1) 


OOF 001F 






15 




(L) 


OOF 4o(Y) 




Store of vector at (Y) 


16 




(12) 


S2(Tl) 50F 


by 97F 




17 




Od) 


26(Pl6) 92963F 




] 


18 




(K2) 


26(Fl6) 9213IF 




VPrint format 


19 




(K3) 


26(Fl6) 26 (x8) 






20 .' 




(K4) 


26(KL6) 26 (All) 




' 


21 




(K5) 


OOF OOF 


• 




22 




(K6) 


S2(x4) 50F 






23 




(K7) 


NFF L5F 


by 37P, by 9& 


1 


24 


• 


(K8) 


S2(A3) 40F 


by 97F 




25 




(KID) 


OOF 0010F 






26 




(KU) 


36(A2) 26(A4) 




] 


27 




(K12) 


92139F 26 (x) 




/Directive 


28 




(KL3) 


92139F 26 (Dl) 




I 


29 




(KL4) 


36(A2) 26 (T) 




J 


30 




(H5) 


26(Pl6) 26 (T4) 
OOK 




For transposition, read 


31 




(DI) 


4l(N) 41(G) 


from 235F 


and 8 tore on drum 


32 






15 (L) 42 (D7) 






33 






L5(DR) 40(D8) 






34 




(Dl) 


50(Y) 50(D1) 







KSL 5.30 



LOCATION 



Abs. 

35 
56 

37 

to 

kk 



Rel. 









56 



58 

o* i 

(ft 

66 



Sym. 



ft2> 



V"* 




ORDER 



26(N12) L0(l) 
30<D2) L521(N12) 
1020F k2 (K7) 
10 (t) ^2(N) 
»(D7) 50(g) 
7500 35F 

i^(ro) 4o(d6) 

pit) 50(B^) 

1) &>{i) 

. BCD*) 

H%IJjji!l 11^1^,1 



met Ufa) 



ml0$te>(T& 



19(g) te(o) 

%lCK5) 32 0>3 

ooic 

S£{SC) IA(K9; 
0020F *»6(X?) 
50(Y) 50(X1) 

26(102) lo(i; 

3£(X2) 22(X3i 
1jD(1) 5>C*3) 
^6C^)I5^X(KL2) 
UOBOF i+2(K6) 
L5(L) 42 (X4) 



I) 



from 57F 



^ 33F, kUP 



NOTES 

Read first vector 
Stop if F 
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KSL 5.30 



from 255F 



Read stdas^cpent vectors 



Stop on F 



Stop on kF U 



Rescale only 



Stop if F 



LOCATION 


ORDER 
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Abs. 


Eel. 


Sym. 


32 (x4) 50F 








67 




to) 




68 




(X5) 


75F 36 (XIO) 


by 58F 






69 






007F 36(X11) 








70 




(x6) 


50F 50 (X6) 


by 243F 






71 




(X7) 


26(Pl6) OOF 


by 119F, 122F, 


OOF will be set to 




72 




(X8) 


F5(x4) 42 (x4) 


126F 


determine print format 




73 






L0(K6) }2(x4) 








74 






92770F 92131F 








75 






92519F 22(Xl) 








76 




to) 


9285^F 24 (DEL) 




Stop: Black; new data tape' 


77 






26 (M) 26 (M) 




white; new parameters 


78 




(xio; 


) 007F 32(x6) 






79 




(xii; 


1 IMX12) 22(X6) 








80 




(X12: 


> 80F OOF 
OOK 


: 


Rescale during 




81 




(T) 


L5(L) k2 (Tl) 


from 104F 


transposition 




82 




(Tl) 


32 (Tl) 50F 








83 




to) 


75F 36(T6) 


by 93F 






84 






007F 36 (T7) 








85 




to) 


50F 50 (T2) 


by 244F 






86 




to) 


26(Pl6) OOF 


by 120F, 124F, 


OOF will be set 




87 




to) 


F5(T1) 42 (Tl) 


12 7F 


to determine print format 




88 






L0(12) 32 (Tl) 








89 






26(A10) OOF 








90 




(T6) 


007F 32 (T2) 








91 




(T7) 


L4(X12) 22(T2) 
OOK 








92 




(A) 


L5(SC) IA(K9) 


from 46F 


Routine to assemble a 




93 






0020F 46 (T5) 




vector of A 1 in memory 




9^ 




(Al) 


L5(DP) L4(K5) 




and print with or without 




95 






40(A2) L5(L) 




rescaling 




96 






42 (A3) L4(G) 








97 






42 (KB) 42(12) 








98 






42 (K7) 50F 


■ 
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KSL 5o30 


Abs. 


Rel. 


Sya. 


OOF OOF 


by 95F 


Drum order 




99 




(A2) 




100 




(A3) 


32 (A3) 40F 


by 96F 






101 






L5(A2) L4(N) 








102 






40 (A2) F5(A3) 








103 






42 (A3) L0(K8) 








104 




(A9) 


36 (A2) OOF 


by 130F i 133F 






105 




M 


L5(L) 42 (A5) 








106 






22 (A5) OOF 








107 




(A5) 


4FF L5F 








108 




(A6) 


50F 50 (a6) 


by 243F 






109 




(AT) 


26(Pl6) OOF 


by 120F, 123F, 


OOF will be set to 




110 




(All] 


) F5(A5) 42(A5) 


12 7F 


determine print format 




111 




1 


L0(K7) 32 (A5) 








112 




(ak>: 


) 92770F 92131F * 








113 






92519F F5(K5) 








114 






42 (K5) LO(N) 








115 






36(A8) 26 (Al) 








116 




(*B) 


92834F 92139F 








117 






9259F 24 (DEL) 




Stop: Black; new data tape 


118 






26 (M) 26 (M) 




white; new parameters 








OOK 




P = N; print by columns 




119 




(El) 


L5(K2) kO(X7) 


from 251F 






120 






40(A7) 4o(T3) 








121 






24 (DEL) OOF 
OOK 




P = J; print by rows 




122 




(E2) 


L5(K3) 40 (X7) 


from 253F 






123 






L5(K4) 40 (A7) 








124 






L5(KL5) 40 (T3) 








125 






24 (DEL) OOF 














OOK 




P = F; print by rows with 


126 




(E3) 


L5(K1) 40(X7) 


from 252F 


spaces separating elements 


127 






40(A7) 40 (T3) 






t 


128 


: i 


24 (DEL) OOF 
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K3L 5.30 


Abs . 


Rel. 


Sym. 


OOK 








• 








129 




(Eh) 


L5(KL3) ^O(DELl) 


from 2*f6F 


X = 0| transposition 




150 






L5(KLl) 40 (A9) 




only 




131 






22 (M7) OOF 
OOK 








132 




(E5) 


V?(KL">) kO (DELI) 


from 247F 


X = 2; "both transposition 




133 






L5(K14) ifO(A9) 




and rescaling 




13^ 






22 (M7.) OOF 
OOK 








135 




(B6.) 


L5(KL2) 4 (DELI) 


from 2*f8F 


X = 1; rescaling only 




136 






22 (M7) OOF 




• 




137 




(N12 ) OOK 




Input routine 




176 




l 
(Pl6) OOK 

| OOK 




Print routine 




232 




(DEL) 9259F 9259F 


from 121F, 125F, 128F 




233 






9259F 9259F 








23^ 






9259F 9259F 








235 




(DELI) 92139F OOF 


by 129F, 132Fj 


, 135F 

• 


i 








OOK 




Read parameters 


! 


236 




(M)(ML)MF 91^F 








237 




Oe) 


32(M^) 22(ML) 








238 




(M3) 


91^f 32 (w+) 








239 




m 


26 (M5) 50F 








2*f0 






7k(KL0) S5F 








2*fl 






if OF 26 (M3) 








2lf2 




(M5) 


L5F 6020F 




Plant "d" 




2*1-3 






if6(A6) If6(x6) 








2^ 






if6(T2) 50F 








2^5 






8l4F LO(l) 




Read directive, X 




2lf6 






56(M6) 26 (E^) 








2kj 




(MS) 


10(1) 36(E5) 








2*f8 






26 (E6) OOF 








249 




(M7) 


52 (SC) 50 (M7) 


from 131F, 
13^F, 136F 


Read scaler, S 





LOCATION 



Abs. 



250 

251 
252 
253 



Rel* 



<r-Z> 



256 
2^7 



i I 



! i 



Sym. 



ORDER 



(MB) 
(Y) 



26(N12) L0(1) 
36(M8) 26 (El) 
L0(1) 36(E3) 
26 (E2) OOF 
26 (M) 26 (M) 

OOK 

L3F 3^(M) 
FFF 26 (M) 
N02988F 920858F 
26L 26lN 



NOTES 
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KSL 5.50 



Test for N, J, or F 



Store of data at (y) 



Sum check 



i 



